home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / comm / mail / YamNet.lha / FSCode.lha / Rexx / Spot / FSWrite.spot < prev    next >
Text File  |  1995-03-11  |  511b  |  27 lines
  1. /* FSWrite.spot written by Vincenzo Scarpa    */
  2. /* Install as 'FSWrite...' in the ARexx menu. */
  3.  
  4. address spot
  5. options results
  6.  
  7. 'isarealist'
  8. if rc = 0 then do
  9.     'requestnotify "Use in message list or from message window!"'
  10.     exit
  11.     end
  12.  
  13. 'requestfile TITLE "File to FSEncode"'
  14.  
  15. filename = result
  16.  
  17. if rc ~= 5 then do
  18.     address command
  19.     'FScode ' || '"' || filename || '"' || ' -e > T:CodeFile'
  20.     address spot 'write FILE T:CodeFile'
  21.     'Delete >NIL: T:CodeFile'
  22.     end
  23.  
  24. exit /* done here ... */
  25.  
  26.  
  27.